library(rpart)
source('./src/prepare.r')

fit <- rpart(as.factor(d.label) ~., data = d.data, method = 'anova')
